home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / moreuselssprgs.lha / Gearwheel0.AMOS / Gearwheel0.amosSourceCode
AMOS Source Code  |  1997-04-15  |  1KB  |  50 lines
  1. For S=0 To 3
  2.   Screen Open S,320,256,4,0
  3.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  4.   Palette 0,0,0,0
  5. Next 
  6. W1=0 : W2=16 : W3=0 : W4=0
  7. For S=0 To 7
  8.   Screen S/2
  9.   Add W1,8
  10.   Add W2,-8
  11.   Add W3,4
  12.   Add W4,-8
  13.   W=W1 : R1=80 : R2=96 : X=220 : Y=100 : ST=16
  14.   Gosub GEAR
  15.   W=W2 : R1=60 : R2=72 : X=88 : Y=188 : ST=16
  16.   Gosub GEAR
  17.   W=W3 : R1=40 : R2=48 : X=58 : Y=58 : ST=8
  18.   Gosub GEAR
  19.   W=W4 : R1=20 : R2=24 : X=258 : Y=220 : ST=16
  20.   Gosub GEAR
  21.    Extension_8_1042 S/2,S and 1
  22. Next 
  23. S=0
  24. Do 
  25.   Add S,1,0 To 7
  26.   Screen To Front S/2
  27.   Wait Vbl 
  28.   Screen S/2
  29.   If S and 1 Then Palette 0,0,$88F,$88F Else Palette 0,$88F,0,$88F
  30. Loop 
  31. GEAR:
  32.   X1=0 : D=0
  33.   For A=0 To 1023 Step ST
  34.     If D<2
  35.       X2= Extension_8_1114(A+W,R1)+X
  36.       Y2= Extension_8_1106(A+W,R1)+Y
  37.     Else 
  38.       X2= Extension_8_1114(A+W,R2)+X
  39.       Y2= Extension_8_1106(A+W,R2)+Y
  40.     End If 
  41.     Add D,1,0 To 3
  42.     If X1=0
  43.       OX1=X2 : OY1=Y2
  44.     Else 
  45.        Extension_8_1016 X1,Y1 To X2,Y2,3,-(1+(S and 1))
  46.     End If 
  47.     X1=X2 : Y1=Y2
  48.   Next 
  49.    Extension_8_1016 X1,Y1 To OX1,OY1,3,-(1+(S and 1))
  50. Return